home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / d / devioustools25.dms / devioustools25.adf / utils / 002.lzx / amiconnectsmall / Create_AdvancedLogin < prev    next >
Text File  |  1978-01-01  |  1KB  |  47 lines
  1. ;Installer Script To Create amitcp:db/aclogonscript
  2. ;$VER: Dialscript Maker V1 (19/11/95)
  3. ;
  4.  
  5. (set sendcmd "#")
  6.  
  7. (textfile
  8.    (dest "t:dialtest2")
  9. )
  10.  
  11. (until (= sendcmd "\0")
  12.        (
  13.          (set rcvcmd
  14.             (askstring
  15.                (prompt "Enter Prompt\n\n(leave blank to exit dialscript editor")
  16.                (help "Enter the text which your internet provider has sent for you to reply to, e.g. login:")
  17.             )
  18.          )
  19.  
  20.          (set sendcmd
  21.             (askstring
  22.                (prompt "Enter Response To Prompt \n\n(leave blank to exit dialscript editor")
  23.                (help "Enter the text which you send after receiving the prompt mentioned in previous data entry box")
  24.             )
  25.          )
  26.          (debug rcvcmd sendcmd)
  27.  
  28.          (if (and (= rcvcmd "\0") (= sendcmd "\0"))
  29.  
  30.                  (set fred "fred")
  31.  
  32.                  (
  33.                    (textfile
  34.                      (dest "t:dialtest")
  35.                      (append rcvcmd)
  36.                      (append "\n")
  37.                      (append sendcmd)
  38.                      (append "\n")
  39.                    )
  40.                    (run "type t:dialtest >> t:dialtest2")
  41.                  )
  42.  
  43.          )
  44.        )
  45. )
  46.  
  47.